home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / sndpla1a / sounds.frm < prev    next >
Text File  |  1999-09-24  |  3KB  |  99 lines
  1. VERSION 5.00
  2. Begin VB.Form sndPlayer 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "sndPlayer"
  5.    ClientHeight    =   1950
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   1590
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   1950
  13.    ScaleWidth      =   1590
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   1  'CenterOwner
  16.    Begin VB.CommandButton cmdPlay 
  17.       Caption         =   "Play"
  18.       Height          =   255
  19.       Left            =   0
  20.       TabIndex        =   2
  21.       Top             =   1680
  22.       Width           =   495
  23.    End
  24.    Begin VB.FileListBox File1 
  25.       Height          =   1650
  26.       Left            =   0
  27.       Pattern         =   "*.mid;*.mp3;*.mpe;*.wav"
  28.       TabIndex        =   0
  29.       Top             =   0
  30.       Width           =   1575
  31.    End
  32.    Begin VB.CommandButton cmdPause 
  33.       Caption         =   "Pause"
  34.       Height          =   255
  35.       Left            =   480
  36.       TabIndex        =   3
  37.       Top             =   1680
  38.       Width           =   615
  39.    End
  40.    Begin VB.CommandButton cmdStop 
  41.       Caption         =   "Stop"
  42.       Height          =   255
  43.       Left            =   1080
  44.       TabIndex        =   1
  45.       Top             =   1680
  46.       Width           =   495
  47.    End
  48. End
  49. Attribute VB_Name = "sndPlayer"
  50. Attribute VB_GlobalNameSpace = False
  51. Attribute VB_Creatable = False
  52. Attribute VB_PredeclaredId = True
  53. Attribute VB_Exposed = False
  54.  
  55. Public Sub sndPlayW(Filename As String)
  56.     Call sndPlaySound(Filename, SND_ASYNC Or SND_NODEFAULT Or SND_NOSTOP)
  57. End Sub
  58. Public Sub sndPlayM(Filename As String)
  59.     Call mciSendString("Open " & Filename & " Alias MM", 0, 0, 0)
  60.     Call mciSendString("Play MM", 0, 0, 0)
  61. End Sub
  62.  
  63. Public Sub sndPauseM()
  64.     Call mciSendString("Stop MM", 0, 0, 0)
  65. End Sub
  66. Public Sub sndStartM()
  67.     If Mid(File1.Filename, (Len(File1.Filename) - 3), 4) = ".mid" Then
  68.         sndPlayM (File1.Path & "\" & File1.Filename)
  69.     ElseIf Mid(File1.Filename, (Len(File1.Filename) - 3), 4) = ".mp3" Then
  70.         sndPlayM (File1.Path & "\" & File1.Filename)
  71.     ElseIf Mid(File1.Filename, (Len(File1.Filename) - 4), 5) = ".mpeg" Then
  72.         sndPlayM (File1.Path & "\" & File1.Filename)
  73.     ElseIf Mid(File1.Filename, (Len(File1.Filename) - 3), 4) = ".wav" Then
  74.         sndPlayW (File1.Path & "\" & File1.Filename)
  75.     End If
  76. End Sub
  77.  
  78. Public Sub sndStopM()
  79.     Call mciSendString("Stop MM", 0, 0, 0)
  80.     Call mciSendString("Close MM", 0, 0, 0)
  81. End Sub
  82.  
  83. Private Sub cmdPause_Click()
  84.     sndPauseM
  85. End Sub
  86.  
  87. Private Sub cmdPlay_Click()
  88.     sndStartM
  89. End Sub
  90.  
  91. Private Sub cmdStop_Click()
  92.     sndStopM
  93. End Sub
  94.  
  95. Private Sub Form_Load()
  96.     Call MsgBox("sndPlayer - By: Argonaut" & Chr(13) & Chr(13) & "This is a simple little app that" & Chr(13) & "will show you have to Start," & Chr(13) & "Pause and Stop different Media" & Chr(13) & "Files such as Midi's, Mpeg's," & Chr(13) & "Mp3's, and Wav's." & Chr(13) & "Everything is done by calls," & Chr(13) & "No more controls needed." & Chr(13) & "More stuff to come later." & Chr(13) & Chr(13) & "www.vbstuff.cjb.net", , "sndPlayer About")
  97.     File1.Path = "C:\windows\desktop\"
  98. End Sub
  99.